home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs03.d81
/
cad.sfx
/
i
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1990-02-12
|
312b
|
11 lines
1 FORT=1TO2:SYS36867
2 FORX1=0TO319STEP06:A=USR(64),X1,199:NEXT
3 FORX1=36TO319STEP36:A=USR(64),X1,198:NEXT
4 FORX1=72TO319STEP72:A=USR(64),X1,197:NEXT
5 FORX1=199TO0STEP-06:A=USR(64),0,X1:NEXT
6 FORX1=169TO0STEP-30:A=USR(64),1,X1:NEXT
7 FORX1=139TO0STEP-60:A=USR(64),2,X1:NEXT
8 FORX1=139TO0STEP-60:A=USR(64),2,X1:NEXT:NEXT:A=USR(32),6:A=USR(32),7
9 GETA$:IFA$=""THEN9
10 LOAD"CMND",D0